CD Fun House 1/CD Fun House (Wayzata Technology).iso/•Word Games•/Renaissance Man ••••/Renaissance Man ееее/stack.txt

Text File | 1990-10-02 | 5KB | 192 lines

-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x0 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 3
-- first background id: 5841
-- card count: 5
-- first card id: 6165
-- list block id: 2850
-- print block id: 3571
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 59232 bytes
-- stack block size: 5120 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x00000000
-- modified by hypercard version: 0x00000000
-- opened by hypercard version: 0x01258000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x0000220000002200
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0xFF00FF00FF00FF00
-- patterns[4]: 0xCC883322CC883322
-- patterns[5]: 0xEE88BB22EE88BB22
-- patterns[6]: 0xEECCBB33EECCBB33
-- patterns[7]: 0xFFCCFF33FFCCFF33
-- patterns[8]: 0xFFEEFFBBFFEEFFBB
-- patterns[9]: 0xFFFFFFBBFFFFFFBB
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0xAAAAAAAAAAAAAAAA
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
--"Renaissance Man" version 1.0   copyright 1988, Ann De Vito
--Department of Classics, University of Winnipeg
--Winnipeg, Manitoba, Canada
--Please list any modifications you make to this stack
--on the "About" card

on openStack
  global TotalWrongGuessesHM, theListHM, theWordHM
  global PriorLevelHM, sixTries, eightTries, noMusic

  push recent card
  hide menubar
  hide message box

  put the userLevel into priorLevelHM
  --for browsers only (poor souls)
  --set the userLevel to 2 so they can type in answers
  if priorLevelHM < 2 then set the userLevel to 2

  set the cursor to 4
  set the lockscreen to true

  put empty into field "average" of card "game"
  put 0 into field "wordNumber" of card "game"
  put 0 into TotalWrongGuessesHM
  --standardWordlist is default
  put StandardWordlist into theListHM
  set the hilite of button id 15 of card "Options" to true
  set the hilite of button id 16 of card "Options" to false
  --sixtries is default
  put true into sixTries
  put false into eightTries
  set the hilite of button "six tries" of card "Options" to true
  set the hilite of button "eight tries" of card "Options" to false
  --music is default
  put false into NoMusic
  set the hilite of button id 18 of card "Options" to false

  doNewWord

  --this  method of entering dashes works well from the first card
  put the number of chars in theWordHM into letterNumber
  repeat for letterNumber
    put "-" after field "newletters" of card "game"
  end repeat

  set the lockscreen to false
end openStack

on closeStack
  global priorLevelHM
  --to compact stack if it is too large
  put the size of this stack into HMsize
  put the freeSize of this stack into HMfree
  if HMfree > .2 * HMsize then
    --to give low level users access to full menus
    put the userLevel into temp
    if temp < 3 then set the userLevel to 3
    doMenu Compact Stack
  end if
  --set the userLevel to what it was before user opened stack
  set the userLevel to priorLevelHM
end closeStack

on OpenGameCard
  go card "game"
  get the loc of field "guessLetters"
  click at it
end OpenGameCard

on doNewWord
  global theWordHM, theListHM, wrongGuessesHM

  set the cursor to 4
  set the lockscreen to true
  set the numberFormat to 0
  repeat with p = 1 to 8
    put "error" & p into wrongNumber
    show field wrongNumber of card "game"
  end repeat

  put empty into field "response" of card "game"

  put empty into field "wrongletters" of card "game"
  put empty into field "newletters" of card "game"
  put empty into wrongguessesHM
  put empty into field "guessletters" of card "game"
  add 1 to field "wordNumber" of card "game"

  put any word of field theListHM of card "game" into theWordHM

  set the lockscreen to false

end doNewWord

--music
on rightTune
  global NoMusic
  if not NoMusic then play "harpsichord" g
end rightTune

on wrongTune
  global NoMusic
  if not NoMusic then play "boing"
end wrongTune

on rudeTune
  global NoMusic
  if not NoMusic then play "boing" bs g b g
end rudeTune

on HappyTune
  global NoMusic
  if not NoMusic then play "harpsichord" tempo 160 be gq ee gq ge eq de
end HappyTune

on dirge
  global NoMusic
  if not NoMusic then
    play "sax" tempo 150 d3h dq. de dh
    play "sax" tempo 150 f3q. ee eq. de dq. dbe. dh
  end if
end dirge